(:*******************************************************:)
(: Test: K-SeqAVGFunc-5                                  :)
(: Written by: Frans Englich                             :)
(: Date: 2007-11-22T11:31:23+01:00                       :)
(: Purpose: A test whose essence is: `avg((-3, -3, -3)) eq -3`. :)
(:*******************************************************:)
avg((-3, -3, -3)) eq -3